home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_3511.txt < prev    next >
Text File  |  1990-08-14  |  5KB  |  184 lines

  1. -- card: 3511 from stack: in
  2. -- bmap block id: 4175
  3. -- flags: 4000
  4. -- background id: 2609
  5. -- name: Demo Shell
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=9 top=280 right=335 bottom=118
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 5040 / 5040
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Mac School® Installer
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global stacks,userLevelSetting
  23.   answer "This will install a button in the Home stack." with "Cancel" or "Install"
  24.   if it is "Cancel" then exit mouseUp
  25.   set lockMessages to true
  26.   lock screen
  27.   set cursor to watch
  28.   put the value of last word of long name of this stack into PathName
  29.   put offset(the short name of this stack,PathName) into temp
  30.   delete char temp to (the number of chars in PathName) of PathName
  31.   set userLevel to 5
  32.   show card button "Mac School¬Æ Demo"
  33.   select card button "Mac School¬Æ Demo"
  34.   doMenu "Copy Button"
  35.   hide card button "Mac School¬Æ Demo"
  36.   push card
  37.   go to card "Stacks" of "Home"
  38.   find whole PathName in field "paths"
  39.   if the result is "not found" then
  40.     put PathName & return before field "paths"
  41.     put field "paths" into stacks
  42.   end if
  43.   go to card "Home"
  44.   repeat with buttonNum = 1 to the number of buttons
  45.     if the short name of button buttonNum is "Mac School¬Æ Demo" then
  46.       set userLevel to 2
  47.       choose browse tool
  48.       pop card
  49.       answer "Button is already installed in the Home stack" with "OK"
  50.       exit mouseUp
  51.     end if
  52.   end repeat
  53.   doMenu "Paste Button"
  54.   set userLevel to 2
  55.   choose browse tool
  56.   set the loc of message to 20,100
  57.   set the loc of button "Mac School¬Æ Demo" to the mouseLoc
  58.   unlock screen
  59.   put "Move the mouse to position the button, then click." into message
  60.   set cursor to arrow
  61.   repeat until the mouseClick
  62.     set the loc of button "Mac School¬Æ Demo" to the mouseLoc
  63.   end repeat
  64.   put empty
  65.   hide message
  66.   lock screen
  67.   set the loc of message to 22,300
  68.   pop card
  69.   unlock screen
  70.   set lockMessages to false
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 2 (button)
  76. -- low flags: 00
  77. -- high flags: A004
  78. -- rect: left=138 top=280 right=335 bottom=247
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 5000 / 5000
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Mac School® Shell
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual zoom open
  90.   go to card "Mac School¬Æ Shell"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 3 (button)
  96. -- low flags: 00
  97. -- high flags: A004
  98. -- rect: left=266 top=280 right=335 bottom=375
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 5072 / 5072
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Pricing Information
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual iris open
  110.   go to card "Module Pricing" of this background
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 4 (button)
  116. -- low flags: 00
  117. -- high flags: A004
  118. -- rect: left=395 top=280 right=335 bottom=504
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 5073 / 5073
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: More Information
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   visual iris open
  130.   go to card "More Information"
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 5 (field)
  136. -- low flags: 01
  137. -- high flags: 2004
  138. -- rect: left=9 top=81 right=272 bottom=504
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 9
  144. -- style flags: 0
  145. -- line height: 12
  146. -- part name: 
  147.  
  148.  
  149. -- part 6 (button)
  150. -- low flags: 80
  151. -- high flags: A000
  152. -- rect: left=145 top=283 right=331 bottom=239
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 5000 / 5000
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Mac School® Demo
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   if the optionKey is down then
  164.     visual zoom open
  165.     go to card "Demo Shell" of stack "Mac School¬Æ Demo"
  166.   else
  167.     set cursor to none
  168.     visual dissolve
  169.     go to stack "Mac School¬Æ Demo"
  170.   end if
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part contents for card part 5
  176. ----- text -----
  177. Welcome to Chancery Software‚Äôs HyperCard demonstration of Mac School.
  178.  
  179. Mac School is an integrated school administration system for public and private schools that handles all of your school‚Äôs record management needs.  Since Mac School‚Äôs release in the fall of 1986, the user base has grown in excess of 2400 sites throughout North America.  Because of Chancery‚Äôs commitment to providing state-of-the art software, Mac School has matured into a school administration system that is powerful, flexible and truly meets the needs of today‚Äôs administrators.
  180.  
  181. We recommend viewing the Mac School HyperCard demonstration by starting with the four set up modules:  School Set Up, Student, Course and Teacher Details in that order, then proceeding to Scheduling, Report Cards/Transcripts, Attendance, and Library.  It is important to note that information entered in the set up modules is critical to the successful implementation of the applications.
  182.  
  183. Click on the Mac School Shell to start the demonstration. Click on a module to view further information.  Use the ? to identify icon functions.
  184.